home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE3 / SCRIBBLE / Examples / chess < prev    next >
Text File  |  2002-09-06  |  400b  |  19 lines
  1. -- chess
  2. RESOLUTION, N = 512, 8
  3. z = BEGIN (arg[1].."/pdf")
  4. z:begin_page(RESOLUTION, RESOLUTION)
  5. z:translate(RESOLUTION/2, RESOLUTION/2)
  6. z:scale(RESOLUTION/8,RESOLUTION/8)
  7. z:setcolor("fill","rgb",0,0.5,0.5,0)
  8. z:set_parameter("fillrule","evenodd")
  9. x = N
  10. while x >= -N do
  11.   if x ~= 0 then 
  12.    z:circle(2/x,0,2/abs(x))
  13.    z:circle(0,2/x,2/abs(x))
  14.   end -- if
  15.   x = x - 1
  16. end -- while
  17. z:fill()
  18. z:END ()
  19.